﻿Public Module CalendarUtil
    Public Enum Bulan
        JANUARI = 1
        FEBRUARI = 2
        MARET = 3
        APRIL = 4
        MEI = 5
        JUNI = 6
        JULI = 7
        AGUSTUS = 8
        SEPTEMBER = 9
        OKTOBER = 10
        NOVEMBER = 11
        DESEMBER = 12
    End Enum

    Public Function getBulanNumber(str As String) As Integer
        Return [Enum].Parse(GetType(Bulan), str)
    End Function

    Public Function getBulanName(i As Integer) As String
        Return [Enum].GetName(GetType(Bulan), i)
    End Function
End Module

